Cream of the Crop 21/Cream of the Crop 21 (Terry Blount) (October 1996).iso/database/hsmt4095.zip/HSMART95.EXE/0/RCDATA/TFORM1/TFORM1.txt

Text File | 1996-06-20 | 46KB | 1,474 lines

object Form1: TForm1
  Left = 200
  Top = 124
  HelpContext = 1
  AutoScroll = False
  Caption = 'Heart Smart'
  ClientHeight = 414
  ClientWidth = 633
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'System'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  Menu = MainMenu1
  Position = poScreenCenter
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 16
  object Label1: TLabel
    Left = 5
    Top = -1
    Width = 72
    Height = 16
    Caption = 'Food Items'
  end
  object Label19: TLabel
    Left = 8
    Top = 341
    Width = 29
    Height = 14
    Caption = 'Carbo'
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
  end
  object Label20: TLabel
    Left = 43
    Top = 341
    Width = 33
    Height = 14
    Caption = 'Protein'
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
  end
  object Label21: TLabel
    Left = 85
    Top = 341
    Width = 15
    Height = 14
    Caption = 'Fat'
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
  end
  object Image1: TImage
    Left = 271
    Top = 357
    Width = 50
    Height = 50
    Hint = 'Trash Can'
    DragMode = dmAutomatic
    ParentShowHint = False
    Picture.Data = {<image001.bmp>}
    ShowHint = True
    OnDragDrop = Image1DragDrop
    OnDragOver = Image1DragOver
    OnEndDrag = Image1EndDrag
  end
  object Image2: TImage
    Left = 271
    Top = 357
    Width = 50
    Height = 50
    DragMode = dmAutomatic
    Picture.Data = {<image002.bmp>}
    Visible = False
    OnDragDrop = Image1DragDrop
    OnDragOver = Image1DragOver
    OnEndDrag = Image1EndDrag
  end
  object Panel2: TPanel
    Left = 2
    Top = 231
    Width = 236
    Height = 177
    TabOrder = 8
    object Label6: TLabel
      Left = 137
      Top = 108
      Width = 70
      Height = 16
      Caption = '# Servings'
    end
    object Label23: TLabel
      Left = 14
      Top = 81
      Width = 29
      Height = 14
      Caption = 'Carbo'
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
    object Label24: TLabel
      Left = 45
      Top = 81
      Width = 33
      Height = 14
      Caption = 'Protein'
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
    object Label25: TLabel
      Left = 84
      Top = 81
      Width = 15
      Height = 14
      Caption = 'Fat'
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
  end
  object TabbedNotebook1: TTabbedNotebook
    Left = 248
    Top = -1
    Width = 382
    Height = 230
    TabsPerRow = 4
    TabFont.Color = clBtnText
    TabFont.Height = -11
    TabFont.Name = 'Arial'
    TabFont.Style = []
    TabOrder = 1
    TabStop = False
    OnChange = TabbedNotebook1Change
    object TTabPage
      Left = 4
      Top = 27
      Caption = 'Sunday'
    end
    object TTabPage
      Left = 4
      Top = 27
      Caption = 'Monday'
    end
    object TTabPage
      Left = 4
      Top = 27
      Caption = 'Tuesday'
    end
    object TTabPage
      Left = 4
      Top = 27
      Caption = 'Wednesday'
    end
    object TTabPage
      Left = 4
      Top = 27
      Caption = 'Thursday'
    end
    object TTabPage
      Left = 4
      Top = 27
      Caption = 'Friday'
    end
    object TTabPage
      Left = 4
      Top = 27
      Caption = 'Saturday'
    end
  end
  object ListBox1: TListBox
    Left = 9
    Top = 19
    Width = 217
    Height = 210
    DragMode = dmAutomatic
    ExtendedSelect = False
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ItemHeight = 14
    ParentFont = False
    Sorted = True
    TabOrder = 0
    OnClick = ListBox1Click
    OnDblClick = Modify1Click
    OnEndDrag = ListBox1EndDrag
    OnKeyPress = ListBox1KeyPress
  end
  object Panel1: TPanel
    Left = 8
    Top = 326
    Width = 105
    Height = 73
    TabOrder = 5
    object Shape1: TShape
      Left = 8
      Top = 41
      Width = 25
      Height = 31
      Brush.Color = clYellow
      DragMode = dmAutomatic
    end
    object Shape2: TShape
      Left = 41
      Top = 16
      Width = 25
      Height = 56
      Brush.Color = clFuchsia
    end
    object Shape3: TShape
      Left = 73
      Top = 57
      Width = 25
      Height = 15
      Brush.Color = clAqua
    end
    object Label16: TLabel
      Left = 12
      Top = 1
      Width = 16
      Height = 14
      Alignment = taCenter
      Caption = '0%'
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
    object Label17: TLabel
      Left = 45
      Top = 1
      Width = 16
      Height = 14
      Alignment = taCenter
      Caption = '0%'
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
    object Label18: TLabel
      Left = 76
      Top = 1
      Width = 16
      Height = 14
      Alignment = taCenter
      Caption = '0%'
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
  end
  object Edit14: TEdit
    Left = 155
    Top = 363
    Width = 37
    Height = 24
    AutoSize = False
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    MaxLength = 3
    ParentFont = False
    TabOrder = 2
    Text = '1'
  end
  object TabSet1: TTabSet
    Left = 256
    Top = 199
    Width = 249
    Height = 21
    DitherBackground = False
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Tabs.Strings = (
      'Breakfast'
      'Lunch'
      'Dinner'
      'Snack')
    TabIndex = 0
    OnChange = TabSet1Change
  end
  object TabListBox1: Ttablistbox
    Left = 256
    Top = 32
    Width = 350
    Height = 169
    DragMode = dmAutomatic
    ExtendedSelect = False
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ItemHeight = 14
    ParentFont = False
    TabOrder = 3
    OnDragDrop = ListBox2DragDrop
    OnDragOver = ListBox2DragOver
    OnEndDrag = TabListBox1EndDrag
    TabStops = 0
  end
  object panel3: TPanel
    Left = 8
    Top = 237
    Width = 223
    Height = 72
    TabOrder = 10
    object Label2: TLabel
      Left = 6
      Top = 6
      Width = 47
      Height = 15
      Caption = 'Calories'
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label3: TLabel
      Left = 6
      Top = 24
      Width = 34
      Height = 15
      Caption = 'Carbo'
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label4: TLabel
      Left = 6
      Top = 44
      Width = 41
      Height = 15
      Caption = 'Protein'
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label5: TLabel
      Left = 107
      Top = 6
      Width = 17
      Height = 15
      Caption = 'Fat'
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object fical: TLabel
      Left = 79
      Top = 6
      Width = 24
      Height = 15
      Alignment = taRightJustify
      Caption = 'XXX'
      Color = clBtnFace
      Font.Color = clBlue
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
    end
    object ficarbo: TLabel
      Left = 79
      Top = 24
      Width = 24
      Height = 15
      Alignment = taRightJustify